home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / dtm / utils.c < prev    next >
C/C++ Source or Header  |  1991-06-18  |  917b  |  42 lines
  1. /*
  2.    File: utils.c
  3.    Low level utilities.
  4. */
  5. #include <stdio.h>        /* standard UNIX I/O libary */
  6. #include <tmc.h>        /* the tm support library */
  7. #include <cvr.h>        /* personal support library */
  8.  
  9. #include "dtmconst.h"
  10. #include "tmcode.h"
  11. #include "utils.h"        /* low level utility functions */
  12.  
  13. /* Search for symbol 's' in the list 'l' and return TRUE if
  14.    found or FALSE otherwise.
  15.  */
  16. bool member_symbol_list (s, l)
  17.  symbol s;
  18.  symbol_list l;
  19.     { register int ix;
  20.       for (ix = 0; ix < l -> sz; ix++)
  21.          if (l -> arr[ix] == s) return (TRUE);
  22.       return (FALSE);
  23.     };
  24.  
  25. /* Given a symbol list 'l' and a symbol 's', append it to the
  26.  * list if it isn't already there.
  27.  */
  28. void add_symbol_list (l, s)
  29.  symbol_list l;
  30.  symbol s;
  31.     { if (member_symbol_list (s, l)) return;
  32.       app_symbol_list (l, s);
  33.     };
  34.  
  35. void docrash (msg, f, l)
  36.  char *msg;
  37.  char *f;
  38.  int l;
  39.     { fprintf (stderr, "%s(%d): %s.\n", f, l, msg);
  40.       exit(1);
  41.     };
  42.